Code
# | echo: true
# | fig-cap: "Ejemplo de regresión lineal simple"
set.seed(123)
x <- rnorm(100, mean = 50, sd = 10)
y <- 2 * x + rnorm(100, mean = 0, sd = 10) + rnorm(100)
plot(x, y, main = "Ejemplo de Regresión Lineal", xlab = "Variable Independiente (X)", ylab = "Variable Dependiente (Y)")
abline(lm(y ~ x), col = "blue")